inherited dm_prescritor_obs: Tdm_prescritor_obs
  OldCreateOrder = True
  inherited sqlConsulta: TSQLQuery
    SQL.Strings = (
      'select'
      '  a.COD_OBS,'
      '  a.LIG_COD_PRESCRITOR,'
      '  a.LIG_COD_TIPO_OBS,'
      '  a.DESCRICAO,'
      '  a.MOSTRA_FICHA,'
      '  a.MOSTRA_TELA,'
      '  a.MOSTRA_RECEITA,'
      '  a.DATA_CAD,'
      '  a.DATA_ALTERACAO,'
      '  b.descricao as prescritor,'
      '  c.descricao as tipo_obs,'
      '  case'
      '    when a.mostra_ficha = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '  end as mostra_ficha_desc,'
      '  case'
      '    when a.mostra_tela = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '  end as mostra_tela_desc,'
      '  case'
      '    when a.mostra_receita = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '  end as mostra_receita_desc'
      'from F_PRESCRITOR_OBSERVACAO a'
      
        'left join f_prescritor b on (b.cod_prescritor = a.lig_cod_prescr' +
        'itor)'
      'left join tipo_observacao c on (c.cod_obs = a.lig_cod_tipo_obs)')
  end
  inherited cdsConsulta: TClientDataSet
    object cdsConsultaCOD_OBS: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_OBS'
      Required = True
    end
    object cdsConsultaLIG_COD_PRESCRITOR: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object cdsConsultaLIG_COD_TIPO_OBS: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_TIPO_OBS'
      Required = True
    end
    object cdsConsultaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 10000
    end
    object cdsConsultaMOSTRA_FICHA: TStringField
      Alignment = taCenter
      FieldName = 'MOSTRA_FICHA'
      Size = 5
    end
    object cdsConsultaMOSTRA_TELA: TStringField
      Alignment = taCenter
      FieldName = 'MOSTRA_TELA'
      Size = 5
    end
    object cdsConsultaMOSTRA_RECEITA: TStringField
      Alignment = taCenter
      FieldName = 'MOSTRA_RECEITA'
      Size = 5
    end
    object cdsConsultaDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaPRESCRITOR: TStringField
      FieldName = 'PRESCRITOR'
      Size = 100
    end
    object cdsConsultaTIPO_OBS: TStringField
      FieldName = 'TIPO_OBS'
      Size = 100
    end
    object cdsConsultaMOSTRA_FICHA_DESC: TStringField
      FieldName = 'MOSTRA_FICHA_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaMOSTRA_TELA_DESC: TStringField
      FieldName = 'MOSTRA_TELA_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaMOSTRA_RECEITA_DESC: TStringField
      FieldName = 'MOSTRA_RECEITA_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_prescritor_observacao,1)'
      'FROM RDB$DATABASE')
  end
  inherited cdsRegistro: TClientDataSet
    object cdsRegistroCOD_OBS: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_OBS'
      Required = True
    end
    object cdsRegistroLIG_COD_PRESCRITOR: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PRESCRITOR'
      Required = True
    end
    object cdsRegistroLIG_COD_TIPO_OBS: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_TIPO_OBS'
      Required = True
    end
    object cdsRegistroDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 10000
    end
    object cdsRegistroMOSTRA_FICHA: TStringField
      Alignment = taCenter
      FieldName = 'MOSTRA_FICHA'
      Size = 5
    end
    object cdsRegistroMOSTRA_TELA: TStringField
      Alignment = taCenter
      FieldName = 'MOSTRA_TELA'
      Size = 5
    end
    object cdsRegistroMOSTRA_RECEITA: TStringField
      Alignment = taCenter
      FieldName = 'MOSTRA_RECEITA'
      Size = 5
    end
    object cdsRegistroDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'codigo'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  a.COD_OBS,'
      '  a.LIG_COD_PRESCRITOR,'
      '  a.LIG_COD_TIPO_OBS,'
      '  a.DESCRICAO,'
      '  a.MOSTRA_FICHA,'
      '  a.MOSTRA_TELA,'
      '  a.MOSTRA_RECEITA,'
      '  a.DATA_CAD,'
      '  a.DATA_ALTERACAO'
      'from F_PRESCRITOR_OBSERVACAO a'
      'where a.cod_obs = :codigo')
  end
end
